РАБЕ 04 


181 
182 
185 
184 
185 
186 
187 
188 
189 
170 
191 
192 
193 
194 
195 
198 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
215 
214 
215 
216 
217 
218 
219 
220 
221 
22 

225 
224 
225 
226 
227 
278 
229 
250 
231 
232 
253 
254 
255 
236 
237 
258 
239 
240 
241 
242 
245 


A152 
8155 
8156 
8157 
8158 
А159 
А15В 
А15Е 
ASF 
A160 
8163 
8165 
8169 
AIAC 
A16F 
8172 
А175 
A176 
А179 
д17Є 
A17D 
ВІТЕ 
A181 
A182 
A183 
8184 
8185 
4182 
4189 
418C 
А18Е 
A192 
8195 
8198 
8199 
А19С 
A19F 
А1А2 
А145 
AIAG 


ALAS 
ALAA 
А1АВ 
ALAD 
ALAE 
AtBO 
А1В1 
8185 
ALB4 
ALBA 
4187 
ALBA 
A1BC 
А1ВЕ 
А1СО 
A1C3 


а1са' 


біс? 
AICE 
A1UD 


ЕРКОМ programmer 2714/2732 


El 
CAGSAL 
рі 

ic 

7B 
ЕЕОО 
C23AA1 
рі 

ic 
C333A1 
115022 
сосвов 
21 ВЕА2 
CD2FED 
CD9340 
2АСВА2 
ЕВ 
гасваг 
010043 
од 

ВЕ . 
С29881 
25 

05 


219Bñ2 
CDSAED 
CD2FED 
Ei 

CDISED 
C361A0 


00 
50 
EFAO 
52 
7040 
54 
BAAO 
55 
42ЕА 
ЕЕ 
CD3AED 
ОЕЗЕ 
2A5B00 
F9 
C36140 
CD3AED 
CD2FED 
СОЗАЕО 
с9 
3ACDA2 


POP H 

JZ DONE 

POP D 

INR Е 

MOV AE 

CPI o 

JNZ МХТВҮ 

POP р 

INR Е 

JMP — NXTBLC 
DONE — LXI  D,:2250 

CALL  RICOUT 

LXI Н,МЕЗІ! 

CALL  :ED2F 

CALL READ 

LHLD LENGTE 

XCHG 

LHLD SRCBUF 

LXI В, ВЫЕЕЕВ 
NXTVER LDAX в 

CMP M 

JNZ ERR 

INX H 

INX B 

DEX D 

MOV а,Е 

ORA D 

JNZ  NXTVER 

LXI D,:2250 

CALL  RICOUT 

LXI  H,MESó 

CALL РМТФ 

JMP | PROMPT 
ERR PUSH H 

LXI  H,MES9 

CALL :ED3A 

CALL :ED2F 

POP H 

CALL  :ED18 

JMP | PROMPT 
1 


* bevelentabel 
1 

смртав рата 00 
рата ^F 
DBL PGMCMD 
рата "Hr 
DBL RDCMD 
DATA "TI" 
DBL TSTCMD 
DATA "ur 
DEL #2842 
DATA EE 
CALL :ED3A 
MVI С,??? 
LHLD :5B 
SPHL 

JMF PROMPT 
CALL  :ED3A 
CALL :ED2F 
CALL  :ED3A 
RET 
IMPULS LDA 


ERROR 


PNTS 


КОМТҮР 


indien Ә dan einde 


adresteller-ti 
laatste adres van hlok? 


мо! депде byte 
blokkenteller +1 
volgende blok 
deselekteren ЕРКОМ 
pointer message 11 
printen message 11 


verifieren EPROM in- 
houd byte per byte 


pointer message 9 
printen message 9 


printen adres 


programmeerimp 2716 
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244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
282 
263 
264 
265 
266 
267 
268 
249 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
294 
297 
298 


К ЖЕ 
SYMBOL 
| 37794 74344. 


віро 
віра 
2105 
#108 
AIDE 
AIDE 
А1Е1 
AlE4 
А1Е5 
ALES 
AiEB 
А1ЕЕ 
А1Е1 
діва 
А1Е5 
AiFé 
а1Е9 
ALFA 
А1ЕВ 
А1ЕС 
А1ЕЕ 
A200 
А201 
A202 
А211 
А212 
А225 
A226 
ваза 
AZ3B 
A256 
A237 
8266 
A267 
А27А 
А27В 
A284 
A285 
A295 
AZ9B 
A2BO 
A2B1 
А2ВЕ 
AZBF 
8263 
А2С4 
а2сь 
А2С8 
агса 
A2CH 
A2CD 
A2CE 


АЗОО 
B300 


EPROM programmer 2716/2732 


РЕЗО 
С2Е 581 
110925 
с0с808 
CDFSA 
110823 
срсвра 
Cc? 
110823 
CDCSD8 
CDFSA1 
110923 
срсара 
C9 

ES 
217008 
2B 

7D 

B4 
С2Е9А1 
El 


00 
453052 
90 
4E4F20 
o0 
4E4F20 
00 
524541 


444F4E45 
00 


IMP2 


DELAY 


LUS 


MES1 


MES2 


MES3 
MES4 
MESS 
MESé 
MES7 
MES9 
MES10 
MES11 
BUFLEN 
LENGTH 
SRCBUF 
NMBL K 
LENGTE 
ROMTYP 
CONST 


BUFFER 


TABLES 


AIN 2390  AOUT 2580 
CMD AG&F СМОТАВ 4149 
РОМЕ 4165 EPR16 4123 
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ЕРІ 
JNZ 
LXI 
CALL 
CALL 
LXI 
CALL 
RET 
LXI 
CALL 
CALL 
LXI 
CALL 
RET 
PUSH 
LXI 
DCX 
MOV 
ока 
JNZ 
РОР 
КЕТ 
рата 
ASC 
DATA 
ASC 
DATA 
ASC 
DATA 
ASC 
DATA 
asc 
DATA 
ASC 
DATA 
ASC 
DATA 
asc 
DATA 
ASC 
DATA 
ASC 
DATA 
ASC 
рата 
КЕ5 
RES 
RES 
RES 
RES 
RES 
RES 
ORG 
RES 
END 


16 
IMP2 
D,:2309 
RICOUT 
DELAY 
D,:2308 
RICOUT 


0,:2308  programmeerimp 2732 
RICOUT 

DELAY 

D,:2309 

RICOUT 


H lengte impuls 
Н,:0870 

H 

А, 

H 

Lus 

H 


SOL. 

“PROM PROGRAMMER?’ 

00 

“WHICH ТҮРЕ OF EPROM’ 
:0р 

:( 2716=2 2732-4 )? 
00 

*INSERT ЕРКОМ AND ТҮРЕ SPACE? 
ой 

*EPROM NOT EMPTY? 

00 | 

"МО MATCH AT ADDRESS’ 
00 

"МО ERRORS’ 

00 

"READY FOR PROGRAMMIMG’ 
оо 

5 ERROR АТ ADDRESS >, 
60 

"PROGRAMMING * 

00 

? DONE? 

00 


2 
2 
2 
1 
2 


8300 


1 
1 
: 1000, 00 


BUFFER А500 BUFLEN 4204 
CONST AZCE DELAY AIFS 
EPR32 8128 ERR A198 














АБЕ 06 EPROM programmer 2714/2732 


ERROR А187 ERRTYP AOSF GETCMD A069 60 A128 
IMP? ALES IMPULS A1CD INIT 6000 INSERT A053 
LENGTE A2CB LENGTH A2Có LUS AIF? MESI A201 
MES1O А2В1 МЕ511 А2ВЕ MES2 А212 MESS AZ3B 
MESA А257 MESS А257  MES5 | 4278  MES7 А285 
MES? А298 MONIT ЕАА?  NEMP ACE? NEXT  A09C 
NMBLK AZCA | NXTBLC 4133 | NXTBLK 4095 NXTBY AIZA 
NXTTST АОСВ МХТУЕН 8172 PGMCMD AOEF | РМТФ  А1СЗ 


` PROMPT 4061 КОСМО 8070 READ А085 RICIN ОВЕО 


RICOUT DOCS  ROMTYP A2CD SELCRD 4047 SRCBUF 4208 
TEST AOCO TSTCMD AOBA ТҮРЕ  AOOC TYPEi& AOZE 
ТУРЕЗ2 ACID WAITSP 4059 


EPROM programmeerapparaat voor 2716 en 2732 


Het programmeerapparaat Кап gemonteerd worden op het WIRE-WRAP 
veld van een universele PC DCE BUS INTERFACEKAART, en kan dus 
parallel met een snelle cassette en alle eventuele verdere DCE 
kaarten gebruikt worden. Er kunnen zowel 2K als 4K EPROMS 
gebruikt worden. Het programma herkent een aantal bevelen, die 
gegeven worden door het intikken van een karakter, al dan niet 
gevolgd door het aangeven van een of meerdere adressen. 

Na het starten van het programma meldt het systeem zich met 
PROM PROGRAMMER. 


WHICH TYPE OF EPROM 
(2716=2 2732-4). 


Ма het intikken уап 2 of 4 alnaargelang men met een 2716 of 
2732 wenst te werken, meldt het programma zich terug met 
INSERT EPROM AND TYPE SPACE 

Nu kan u zonder gevaar de EPROM in de programmeersokkel steken 
(groene LED brandt) en daarna een SPACE intikken. 

Het systeem meldt zich met de prompt en wacht nu op het intikken 
van een bevel. 

Het is normaal dat men eerst wenst te testen of de EPROM leeg 
is of behoorlijk gewist is. Dit kan gebeuren door het ingeven 
van het bevel (Т). 

Het programma leest (gele LED brandt) de ganse EPROM en veri- 
fieert of inderdaad in elke geheugenplaats FF staat. Is zulks 
het geval dan komt de melding 

READY FOR PROGRAMMING 

In het tegenovergestelde geval komt de melding 

EPROM NOT EMPTY 

Wenst men nu over te gaan tot de programmering van de EPROM 
dan Кап dit gebeuren met het bevel (Р). Dit bevel dient ‚ом 
volledig te zijn,gevolgd te worden door drie hexadecimale ad- 


cont. on p.411 


385 


СМЕТ Е Рам ж «ее А 
— ‚су. сюе а А 


TK 











£47 jg eem 
Ki А SE 
POS s. ET 
жо |, À | 
| д 
#3 5 с 
PAL д: 24 о 
РИ? | 1 
Mo М 
P5, 4 Е | 
fB, 6 K | 
РВ | 


FE, FE = РЕ = By PCs Ро zijn de overeenkomstige klemmen 


van de 8255 ор de DCE interfacekaart. 
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program identification 





title MAZE GAME 
author M. DIERCKX 
purpose try to move the object through the maze 
comment 
1 МОРЕ 0 
2 КЕМ М. DIERCKX 
5 КЕМ ІМР ІМТ 


10 REM het maken van een doolhof 

20 MODE 2:COLORG 08 8 O 

80 FOR 150 ТО XMAX STEP 10:DRAW 1,0 I,YMAX 21:NEXT 

90 FOR 1=0 ТО YMAX STEP 10:DRAW 0,1 XMAX,I 21:NEXT 

130 EIND=RND (30) +60 

155 Х1=0:Үі=0 

140 FOR I-1 TO EIND 

150 ІР INT(RND(2))=0 THEN FLAG=i:X=RND(XMAX):DRAW X1,Y1 X,Y1 0:Х1=Х 

160 IF FLAG=0 THEN Y-RND(YMAX):DRAW X1,Y1 Х1,Ү O:Y1=Y 

165 FLAG=0 

170 NEXT I 

175 DRAW Х1,Ү1 ХЕ, УМАХ О 

175  DRAW X1,YMAX XMAX,YMAX O 

180  COLORG O 8 12 14 

190  X=0: Y=0 

191 DOT X,Y O 

192  X2=RND(XMAX) : Y2-RND (YMAX) : IF SCRN(X2,Y2)=0 THEN DOT Х2,Ү2 14 

195 IF Х-ХМАХ AND Ү-ҮМАХ GOTO 2000 

196 ОМ RND(4)+1 GOTO 220,240, 240 

200 XI=X+1:IF ХІ>ХМАХ GOTO 195 

210 IF SCRN(XI,Y)=0 THEN DOT XI,Y 12:60SUB 1000:DOT X,Y 0:X=XI:GOTO 200 
215 GOTO 195 

220  YI-Y*1:1F ҮІ>ҮМАХ GOTO 195 

250 IF SCRN(X,YI)-O THEN DOT X,YI 12:GOSUB 1000:DOT X,Y 0:Y=YI:GOTO 220 
235 БОТО 195 

240  XI-X-1:IF Х1<0 БОТО 195 

250 IF SCRN(XI,Y)-O THEN DOT XI,Y 12:GOSUB 1000:DOT X,Y 0:Х=Х1:60ТО 240 
255 GOTO 195 

260 YI=Y-1:IF YI<O GOTO 195 

270 IF SCRN(X,YI)-O THEN DOT X,YI 12:GOSUB 1000:DOT X,Y O:Y-YI:GOTO 260 
280 GOTO 195 

1000 WAIT TIME 2:SEC-SEC+1:G=GETC: IF 0-0 THEN RETURN 

1010 IF 0-19 THEN Х21=Х2+1:1Е Х21<-ХМАХ THEN IF SCRN(X21,Y2)-0 THEN DOT Х21,Ү2 
14:DOT X2,Y2 0: X2-X21: RETURN 

1020 IF 8-18 THEN X2I-X2-1:1F Х21>=0 THEN IF SCRN(X21,Y2)z0 THEN DOT X21,Y2 14: 
DOT X2,Y2 0: Х2=Х21: RETURN 

1030 IF 0516 THEN Ү2І-Ү2%1:ІҒ Ү2І<-ҮМАХ THEN IF SCRN(X2,Y21)=0 THEN DOT X2,Y21 
14: DOT X2,Y2 Os Y2=Y2I: RETURN 

1040 IF 8-17 THEN Y2I-Y2-1:IF Ү21>=0 THEN IF SCRN(X2,Y21)-0 THEN DOT X2,Y21 14: 
DOT X2,Y2 O:Y2=Y21:RETURN 

1050 RETURN 

2000 MODE 0 

2010 CURSOR 10,10:PRINT " и hebt er ";SEC/70;" seconden over gedaan" 
2020 Q=6ETC: IF Q=0 GOTO 2020 
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РАБЕ 91 


eoi 
ава 
ea 
вад 
eon 
BOG 
887 
DO 
009 
eie 
911 
612 
013 
#14 
215 
215 
017 
218 
819 
өсе 
өрі 
022 
223 
824 
225 
926 
227 
828 
929 
аза 
eii 
ела 
әз 
954 
655 
ATA 
Quy 
elcg 
229 
вав 
B44 
е42 
ват 
944. 
845 
946 
647 
248 
949 
ose 
251 
ез2 
955 
854 
055 
916 
257 
258 
959 
DG 
861 





ХХХ HF E E Ho e HF E e E HF E ҰН 


х + 
* Video RAM table generator * 
Ж | D 
# Бу Salvatore PENNISI * 
* Via Mario Borsa 65 - 00159 ROMA (ITALY) + 


ЕХ ХАН 


This program generates а table with 
the addresses of the lines of the video 
RAM in any MODE. 

It is particularly useful when the 
speed is very important (games, 
graphics,...). 

In fact, having the y-coordinate, 
it is possible to know the address of 
iine without time consuming 
calculations. 


жж ж ж жж жож ж ж ж ж 
Жж жж ж ж ж ж жж ж ж 


зараз зва З КЗ KEKE KE FR E HK ¥: 


How to use this program 
1) Load this program 
ut 
R 
ZA 
See 
2) Write in HEX the start address of ° 
video RAM table to merge after 
in vour ASSEMBLER program 
3) Select the MODE 
ОЕ. The table is created, save it 
on tape by the W command 
HIKE EK ERE EK EK EERE RENE EEE EE EE EEE EER EEE EEE ER 


Жж жж Жж жож ж ж ж ж ж 
жж жж ж ж жж ж ж ж ж ж 


ж М.Б. For example the video RAM table * 
* in MODE 5 (512 bytes? is : * 
* Start address * 
* 6649 6682 GEFD S757 ... BF9S BFEF ж 


EF E FF FF FF FE FE FF FF FF ETETETT EEEE EEE EEE] 
% INDIRIZZI КОМ 

x 

RETART EQU #2802 

USTART EQU | 1259909 


GETFROE ЕВО z DABE INPUT DA TASTIERA 
FMSG ERU :DADA PRINT DI UN MESSAGGIO 
OUTC ЕСЕЈ :ррай OUTPUT DI UN CARATTERE 
ALFNUM ЕВО : DEG CONTROLLO 9-9 A-Z 
MODES ЕВО : РЕ 

x 

з COSTANTI MODE 6 

# 

INCRE ERU 180 

VBO ERU ВОЗЕ :ВЗЕ5- #86 

COUNTS EGU 218 

% 

ж COSTANTI MODE 1/2 

* 

INCRi EGU 119 

VBi , EBU 18907 :BOEF-:18 

COUNTI ЕВО :41 

* 














M 962 ж COSTANTI МОРЕ 2/4 
РАБЕ 92 
963 * 
654 ІМСЕЗ EDU  :2E 
065 VBS EU :4892 :АВС1-:2Е 
і 266 COUNTS EQU | 287 
* 857 * 
868 * COSTANTI MODE 5/6 
859 ¥ 
676 INCRS EQU : SA 
я 871 VES EQU :&5EF 16649-1258 
ig 872 COUNTS EQU  :FF CONTATORE RIGHE 
975 * 
ER 874 з COSTANTI ASCII 
5 975 # 
978 ЕЕ ERU set FORMFEED 
977 СЕ EU sep CARRIAGE RETURN 
278 DELC EQU seg DEL CHAR 
979 саке EDU :28 ТЕКО 
ege CARI EU | i31 UND 
281 CART EDI 2:33 TRE 
882 CARS EDU | 125 CINQUE 
ава % 
" 984 CARG EU | 147 5 
+ 085 # 
ова ORB 2300 
eg 887 * 
= age * ІМРОЄТА MODE à 
x 889 + 
Са 090 0308 ЗЕЕЕ START MVI 0 А,МОРЕВ 
> 891 8282 ЕЕ RST 5 
992 0505 18 DATA :18 
992 * 
994 ж PRINT CHR£(12) 
š 895 * 
UE 895 9204 217004 LXI — H,CHR12$ 
| 997 0307 CDDADA CALL PMSG 
E 998 ж 
2 999 ж PRINT МЕ55Ф 
S 199 ж 
as 181 818А 217Е04 LXI  H,MESSO 
За 192 әсер CDDADA CALL PMSG 
a 182 % 
š 194 з FRINT MESSI 
ж 185 х 
2 186 0318 218184 MEL LXI Н, MESSI 
P 167 ӘЗІЗ Сррара CALL  FMSG 
T 108 9216 CDBEDS GETC CALL  BETFRC 
5 169 9519 СА1207 JZ БЕТС 
Ed 118 ӘЗІС ЕЕФВ ЕРІ  DELC 
E: 111 ӨЗ1Е CALOGZ 27 МЕ1 
2 112 9221 CDO9DE CALL  ALFNUM 
| 115 9224 0210905 INC MEL 
E 114 9527 ЕЕ47 ЕРІ CARG 
d 115 8329 DAZFez ЈЕ DE 
E 116 8320 251005 JME МЕ! 
; 117 8223 CDA&DD ок CALL OUTC 
4 118 6232 522895 STA IND 
С 119 8235 CDBEDA GETC1 CALL GETFRC 
$ 128 2338 CAI 11 БЕТС1 
~ 121 0338 ЕЕВВ ЕРІ DELE 
P 122 9350 СА1005 JZ МЕ1 
123 0340 CDeSDE CALL  ALFNUM 
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124 #141 


PAGE 83 


125 0244 
124 2548 
127 8348 
128 ӨЗДЕ 
129 8351 
150 835 

151 8357 
132 8538 
133 8352 
154 @35F 
135 06252 
136 82565 
157 9287 
158 0368 
129 ВОЛАР 
140 0270 
141 9273 
142 9174 
143 0379 
144 2578 
145 ӨЗ?Е 
146 8381 
147 8104 
148 8586 
149 8289 
158 ӨЗЕС 
151 ӨЛӨР 


155 0392 
156 9595 
157 9598 
158 6396 
159 039D 
160 e39F 
161 9562 


167 2385 
158 6388 
169 43A 

176 ӨЗАВ 
171 AGE 
172 e3Be 
175 G3EZ 
174 ВІВЗ 
175 OZBA 
176 8585 
177 ВЕНЫ 
178 GIBT 
179 ОЗЕВ 
186 0589 
181 G3BB 
182 В5ВЕ 
185 езге 
184 өзг? 


185 8503 


D21063 


FEA7 

DA4EOI 
с21985 
Среврр 
225909 
CDBEDG 
CASE 
FEO? 

Са1ова 
CD99DE 
D21665 
FE47 

разрез 
231003 
Сраарр 
323865 
CDBEDS 
са? тез 
ЕЕ В 

L61905 
GDƏ9DE 
D21605 
FE47 

DOC oi 
Савез 
среерго 


325805 


CDBEDS 
AGREE 
FESS 

calea 
FED 

TARSOS 
Слогаз 


213865 

7E 

FE4G 

Павова 

рай? 
аз 

87 

ә? 

ER 

27 

47 


Kees 
ша 


ТЕ 
FES 
расов 
068? 
реза 
се 


525005 


DEL 


BETE 


DEZ 


GETCS 


ORS 


+ 


ЕРІ 
JC 
JMF 
CALL 
STA 
CALL 
22 
CFI 
dz 
CALL 
JNE 
CPI 
jt 
JMF 
CALL 
STA 
CALL 
JZ 
ЕРІ 
ЧІ 
CALL 
INC 
ЕРІ 
JC 
JMF 
CALL 
STA 


MEL 


CARG 
OE 
MEL 
сите 
IND+1 
ВЕТЕКС 
GETCZ 
DELC 
МЕТ 
ALFNUM 
MEL 
CARG 
Ока 
МЕ! 
DUTC 
IND+2 
BETFRC 
GETCS 
DELE 
MEL 
ALFNUM 
МЕТ 
сако 
ORS 
MEL 
OUTE 


ND 


% TEST CARRIAGE RETURN 


D 
CRETUR 


ж ж ж ж ж 


CONV 


ASC 


~ 


ASCZ1 


CALL 
42 
CPI 
JZ 
ЕРІ 
Jz 
JMF 


LXI 
MDV 
ЕРІ 
JÜ 

SUI 
SUI 
RLC 
RLC 
RLG 
RLE 
MOV 
INX 
MON 
CPI 
ЧЕ 

SUI 
Sui 
ADD 
STA 


БЕТЕКС 
CRETUR 
BELG 
МЕ1 

СА 
СОМУ 
CRETUR 


CONVERSIONE IND DA ASCII IN HEX 


PRIMO Е SECONDO BYE 


H, IND 
А, М 
246 
ASCZ 
:87 
сака 


E, A 


sE 


AM 
349 
ASCII 
OR 
CARE 
В 
INDH+1 


185 + 


РАБЕ 94 

187 | з TERZO Е QUARTO BYTE 
188 * 

189 9505 2% ІМХ H 

198 8307 7E МОМ A.M 

191 9308 FE4G CPI 246 

192 ӨЗГЕ DACFGZ JC ASUCZ2 
193 ӨЗЄр Вав? Sui :07 

194 ӨЗСЕ реза 88072 SUT рака 
195 езр1 #7 RLC 

196 BIDA 97 RLE 

197 GEDE oi RLC 

198 #504 #7 RL.E 

199 9105 47 MOV BAA 

266 GZD& 23 ІМХ H 

201 ӘЗр7 7E MOV A.M 

282 8505 FE46 ЕРІ гай 

203 @3DA DADFe3 JC ASCII 
264 @3DD 068? SLT 287 

285 @3DF р630 28223 Sui CARE 
206 ATEL 80 ABD В | 
297 ӨЛЕ? 223005 STA INDH 
208 x 

209 + CONTROLLO INDH MAGGIORE #655F 
218 * 

211 OSES 355085 LDA INDH+1 
212 ВЗЕВ FEWS CFI Вода 

215 ОЗЕ 0410081 JE MEL 

214 ӘЗЕР C2FB86:2I ЧМ МЕ? 

215 @2F@ зазсоз LDA INDH 
216 ӨЗЕЗ БЕЗЕ CFI ЗЕ 

217 ӘЗЕЕ 1818821 JC МЕЗ 

218 х 

219 * SCELTA МОРЕ 

220 х 

221 ОЗЕВ 216304 МЕЗ LXI H,MESS2 
222 ОЗЕВ CDD4DA CALL FMSG 
225 @3FE CDBEDS БЕТСА CALL GETFRC 
224 0401 CAFEGS JZ GETCA 
225 0404 FESS СЕТ DELC 
226 0466 CAFBES - JZ MEZ 

227 0409 FEZG CFI саке 

228 8468 Da20604 2 ме 

229 94ӘЕ БЕЗІ CPI CARI 
250 0416 DAZDO4 2 М1 

251 9414 FERS СЕТ CARS 
232 9415 САЗАВА ЧІ М5 

255 9418 FESS CFI CARS 
254 0410 Са4704 ЧА MS 

255 9410 СЕЕ ЈЕР GETC4 
25 х 

257 ж INIZIALIZZA MODE o 
228 % 

259 0420 2060900 ме CALL DUTE 
240 9425 1418 MVI D, COUNTS 
241 0425 1Е86 НМІ E, INCRE 
242 0427 OISFBZ2 LXI В, УВО 
241 даса L25404 УМЕ INIZIO 
244 * 

245 з INIZIALIZZA MODE 1/2 
246 * 

247 BALD сраврр Mi CALL DUT DAInamic 83-19 - 391 


592 


248 6420 


PAGE oi 


247 
nes 
a 


251 
252 
253 
254 


0452 
ВАЗА 
0437 


ET 
255 


гута 
Ido 


ваза 
257 0435р 
258 ВАЗЕ 
259 9441 
268 0444 
261 

262 


мат 
ICH 


6447 
6446 
2440 
ВАДЕ 
9451 


264 
265 
266 
257 
26 

269 
278 
271 
975 
274 
275 
276 
277 
278 
279 
288 
281 
282 
285 
284 
285 
286 
287 
288 
289 
296 
291 
292 
295 
294 
295 
296 
297 
298 
299 
500 
501 
202 
303 
504 
zes 
506 
307 
208 
529 


9454 


4457 
2458 
0459 
6454 
G4B 
9450 
ВАЗЕ 
@45F 
0460 
9441 
рада 
0465 


6456 
6487 
9448 
2459 
@4&ñ 
BAAC 
9450 
GAHE 
646F 


0478 
6473 
9476 
9479 


8476 
9470 


1641 


1Е18 
010769 
1354904 


срвәрр 
1682 
1ESE 
919388 
35404 


срьоерр 
16ЕЕ 
LESA 
GIEFGS 
1224984 


245689 


79 
85 
4F . 
78 
TEGO 
47 
7а 


ard 


aed 
71 


"т 
aL 


15 
C2535704 


7 
8: 
ДЕ 
78 
сеге 
47 
79 


тт 
ща 


71 


4 0 


Le 


212865 
CDD4DA 
il60F7 
C3e9EÓD 


MVI — D,CDUNTI 
MVI Е, INCR1 
LXI В, VBL 
IMP — INIZIO 
* 
ж INIZIALIZZA MODE 3/4 
* 
* 
Mz CALL DUTE 
MVI — D,CDUNTZ 
MVI | E,INCRZ 
LXI B,VB3 
IMP INIZIO 
ж INIZIALIZZA MODE 5/5 
x< 
M5 CALL OUTE 
MVI  D,COUNTS 
MVI — E,INCRS 
LXI  B,VB5 
JMP — INIZIO 
* 
* CREAZIONE TABELLA IND. VIDEO 
* 
INIZIO LHLD INDH 
* 
LOOP МУ АС 
ADD Е 
MOV са 
MOV А, В 
ACI 1:00 
MOV B,A 
MOV М.Б 
INX H 
MOV МЕ 
INX H 
DCR D 
INZ LDDF 
* 
з CALCOLO FUORI LOOP 
* 
MOV ot 
ADD E 
MOV са 
MOV А,В 
ACI 206 
MOV В.А 
MOV МЕ 
INX H 
MOV МС 
* 
* PRINT FINE 
* 
FINE | LXI  H,ENDMES 
CALL PMSG 
LXI  SP,:F960 
IMF — USTART 
+ 
ж MESSAGGIO СНЕЗ (12) 
ж 
CHR12$ DATA FF 
DATA в 
* 


ER 


"E 
22» H8 


ASC "Start addrress of table’ 


in НЕХ” 


MODE в" 


= MODE 1/2" 


ASC US = MODE 574" 


ASC "5 = MODE 5/6" 


greater then #855Е) 


ASC "Select the MODE 


85012 
CARS 
CONV 
COUNTS 
ENDMES 
БЕТСІ 
GETFRC 
INCRS 
LOOF 
MS 
MESS i 
OEL 
РМЕБ 
Уве 


zie * MESSAGGI 

FAGE 85 

311 * 

312 047E #080 MESSE DATA CR, CR 
313 0480 202020 ASC у 

514 G49F BD DATA СЕ 
315 04Ар oa рата ё 

516 8441 8080 MESS1 DATA  DR,CR 
117 BAAT 557461 

318 ВАВА 20494E ASC i 

519 e4C1 Ор рата ск 
320 DAC? 286154 ASC * (address 
521 e4bE2 ве DATA ё 

322 AES ODED MESSE DATA  CR,CR 
325 HAES 582050 ASC A = 
524 В4ЕЕ Өр рата СК 
525 дата 1128450. ast "1 = 
326 GAFC 80 рата CR 
527 GAFD 1220350 

328 9509 AD рата СЕ 

229 6568 5514030 

358 9516 Өрөр DATA  CR,CR 
351 8518 556560 

352 взга eo DATA в 

355 OSZB 9090 ENDMES DATA CH, CH 
224 9520 202026 ASC “жұ DONE 3x 
535 0557 QQ DATA 9 

115 х 

537 % САМРІ DI LAVORO 
558 * 

559 955 IND RES 4,6 
148 0530 iNDH RES 2,0 
241 ОЗЕ ЕМО 

ACIE XC IEEE EXE EXE анна ERE 
*SYMBOL TABLE + 
зневажав ан ванна аа юю 

ALFNLUM DEG? 6502 ezBe ASCZ1  ezce 
ASCZ2  e3DF сака воза CARL 6831 
CARS 0825 CARG 2047 CHR12$ 8470 
COUNTS веја COUNTI 9041 LOUNT бөр? 
СК овер CRETUR 9592 DELC 2208 
ЕЕ овес ЕТМЕ 9470 ВЕТС 2216 
BETC2 8254 GETCS 8375 GETC4 ӨЗБЕ 
INCRE 9836 INCRI 9018 INCRS @@2E 
IND 22523 INDH 2255 INIZIO 9454 
ма 6426 Mi 8420 Ма ВАЗА 
МЕ1 azie МЕС ӨЗЕВ MESS®  O47E 
MESS2 ОДЕЗ MODES Gott Ок GF 
Ока азар ORS asar DUTE 0048 
RSTART CBC START 2590 USTART Е909 
УВІ B9D7 VES 68975 VBS 


GEEF 


е СЕ 
BOTS 
IAS 
ӘЗЕР 
обов 


“Tore 
9519 


ВОВЕ 
6658 
8457 
8447 
ALA 
ӨЗДЕ 
рара 


З5Е 


Video RAM table generator! 
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РАБЕ #1 


айд 
083 
aga 
aus 
дає 
айт 
аве 
паз 
alg 
811 
812 
013 
214 
215 
815 
817 
218 
813 
рей 
021 
ата 
B23 
024 
825 
aze 
ат 
028 
дез 
аза 
2:31 
өзг 
6:33 
234 
235 
озе 
аз" 
аза 
933 
948 
941 
042 
945 
044 
245 
845 
047 
948 
243 
asa 
ant 
and 
853 


054 


HEEG 
azFz 
Aar: 
ВЕЕ4 
вера 


8348 
0341 
9342 


MODERHISED CHARS 


Западе 
ар 
ae 
ВЕ 
1486440 


" ВЕ 


ЕЗ 

ЕЗ 
ЗЕН 
ЗайзЕЕ 
ЗЕЕЕ 
2324 1 FE 
210082 
ECE 
23 


' 3648 


23 


3683 


SAFF G2 
30 
27 


‚ БЕ 


ЕБЕЯ 
ar 
ar 
ВЕ 
er 


3 C530 


3a2Fed02 
тр 


3 ESAF 


Cea 
ERIC 
F1 

Е1 

C3 


ES 
OS 
C5 
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Ж 


PPICMD 
ЕРІР“Я 
ЕРІР“В 
РРТРУС 
СНЕРФ 
STCHR 
ACTCHR 
PRMODE 
РЕРОЗЗ 
Ж 


LEFTSP 
+ 
IHIT 


START 


FOR SEIKOSHA GP100 


DATA :80,0,0,0,0,0 < CHAR. DATA MORD 


БЕС "ВЕС 
EAU ‘FEQS 
EGLI "РЕМИ 
EDU "РЕВ 
Eau ‘FEBS 
DATA "D 
DATA :а 
DATA :Е 
DATA  :18,8,й 
ORG “ЗЕК 
CATA 14 
PUSH H 

PUSH PSH 
МТ я, : ЯВ 
STA РРТСМО 
HV T RL. FF 


STA РРІР“Б 
LHI н, :B2DD 


MI М, : c3 
ТНа H 
НМТ М, : 48 
THA H 


MVI М, : 83 


LDR LEFTSF 


DER А 
DRR 

MO" L.R 
AHI ‘FQ 
RRC 

RRC 

RRC 

RRC 

АРІ 30 
STA PRFOSS+1 
мом R.L 
АНІ : ВЕ 
ADI : за 
STA РЕРО5 8 + 2 
РОР РЗИ 
РОР H 
RET 

ORG : 348 
PUSH H 
PUSH 0 
PUSH B 


< ACTUAL PRIHTER МОРЕ 

« LEFT SPACE POSITIOH 
HUMBER ОР SPRCES LEFT-SIDE 
ІНІТ PARALLEL РЕТНТ-ЗЕКУ 
DCE 8255 СОММАНО МОРЕ 1 

. Port А : DATA OUT 


‚ Fort В : РЕМ ADDR OUT 
, Port C : CONTROL 120 


ADJUST DOUTC 
SYSTEM JUMP #348 


ІМІТ IHSERT LEFT-SPRCE 
HUMBER ОЕ SPRCES LEFT 
DECIMAL ADJUST 


ТЕНТН ІН ASCII 


SINGLES IM ASCII 
END OF ІМІТ-КОМТІНЕ 


ENTRY : CHR ІМ ACCU 
START OF DOUTC~PROCESSING 


РАСЕ 82 


gon 
856 
827 
858 
059 
aco 
861 
962 
953 
064 
GES 
866 
дег 
aes 
852 
ато 
871 
Ors 
ars 
ard 
875 
Dee 
дет 
ars 
ауз 
aed 
881 
882 
883 
984 
985 
086 
aov 
858 
ges 
090 
891 
992 
893 
894 
095 
096 
097 
ass 
823 
128 
. 181 
182 
165 
184 
105 
185 
187 


0343 
8344 
озат 

344 
азас 
O34F 
2352 
9354 
eas 
8359 
азас 
ОЗ5Е 
8361 


1364 
0367 
Өзен 
9356 
9360 
азт 

9373 
9574 
Hara 


Өзге 


азт 

азтс 
ӨЗГЕ 
O37F 
8388 
8381 
0382 
2383 
8384 


взет 
азан 


аз8с 


Q3asr 
8332 
8395 
8338 
0323 
839A 
0396 
839C 


9390 
азав 
азаа 
a3ms 


MOÜDERHISED CHARS FOR SEIKOSHA GPF 18E 


ЕЗ 

32F 302 
3RF 202 
FEAD 
снсвваз 
3RF38z2 
FEG1 
PASCO 
FETE 
Егэрез 
SAF AGS 
FEQS 
С4ЕЋОЗ 


SAF 392 
210004 
PEGI 
DE 
210788 
сат883 
аз 

1р 
сзтаваз 


11Е082 


ТЕ 
CoS 
EB 

тт 

ЕБ 

23 

13 

ор 

Lar BES 


г1ЕСОг 
GEGE 
CDBEG:3 


SAF 302 
COAEGS 
згғгй2 
Ғ1 
C1 
Di 
Е1 


са 


SAF Oz 
ЕЕВЕ 

CAECQ3 
SAF 362 


HOCRET 


МЕчТСН 


IH SET 
+ 
НЕХТВТ 


Ж 
RETURN 


РМЕН 
ЭТН 
LEA 
CPI 
JE 
LCA 
CPI 
«С 
СРІ 
«Р 
LDA 
ЕРІ 


СМЕ 


LDR 
LAI 
Sul 
мим 
LI 
JE 

CAC 
ОСЕ 
«МР 
LAT 


мом 
ADI 
ACHG 
мом 
“CHG 
INK 
IHS 
DCR 
JHZ 


Lal 
мүт 
сащ. 


LER 
CALL 
STA 
POF 
POP 
РОР 
РОР 
RET 


LDR 
CPI 
CHE 


LEA 


PSM 

ACTCHE 
LSTCHE 
Ди 
CARRET 
АСТСНЕ 
4 A s 

LIFZRSE 
‘TB 

ЏРСАЗЕ 
РЕМОРЕ 


: 2 


D 


РЕМС 


ACTCHR 
Н. TABLE 
"a 

E.R 
Е, : HOSS 
INASET 

B 

E 

HEATCH 

D, CHEE S+1 


Я. М 


Әй 


НЕ+ТЕТ 


H. CHEFS 
2.6 
РЕРАРЖ 


RCTCHE 
PRSCRH 
LSTCHE 
PM 

Б 

D 

H 


РЕМОРЕ 
ЈЕ 
РЕМ =8 
ACTCHR 


TEST СНЕ ІН ERHGE 


xd 


COMPUTE ІНОЄХ 
ІМ МЕМ СНЕ TABLE 


EXIT : HLeTABLE-CHAR-FOTIHTER 


COPY TRELE-CHRÉ ТО CHEFS 


EHD OF DüLUTC-PROCESSIHG 
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PAGE 93 MODERHMISED CHARS FOR SEIKOSHA GP lie 


198 Өзге CDB1G3 FRTUFC CALL FRPAPC 

183 8388 сзеваз JMP КЕТИЕН 

118 Ж 

111 ОЗВЕ EF РЕЗСЕН RST 5 ЕНТЕ? : Васы = act char 
112 GSAF o3 DATA 2 

113 азва Ca БЕТ 

114 + 

115 9381 FS FRPRPC PUSH PSH EHTR'Y : Acem 

116 ЗЕ: SAGSFE MTRCKF LDA РЕТРСС 

117 8325 Ar АНА ñ 

118 азв6 F2B203 JF цтаске 

115 ӨЗБӘ Fi POF 5Ы 

120 ӨЗЕН 3288FE STR ЕРІР“Н 

121 азвр C9 РЕТ EXIT : Ясси 

122 Ж 

123 ӨЗБЕ ТЕ РЕРАР% МОм А.М ЕНТЕТ Нир nter. Cene tes 
124 ӘЗЕР СОВА: CALL РЕРАРС 

125 азс? ар DCR С 

122 8502 ce RE 

127 азс4 23 IHN H 

128 8305 СЗВЕЙЗ ЈАР PREAF 

12 Ж 

130 8308 ЗВЕЗОС CARRET LOA ACTCHE 

131 ӨЗГЕ FEGD | СЕТ p 

132 OSCE савейз JE РЕТЏЕС 

133 8300 ЗНЕРЯ2 LDA LEFTSF 

134 6305 AP AHA A 

135 9304 СА4ЕЙЗ JE HOCRRT JUMP IF HO LEFTZPRCE 
136 8307 FEG1 СРТ 2 

137 a3p9 CRE403 JE QHESFC 

138 ASDC 21252 LAI Н,РЕРП 

139 ӨЗГЕ BEES MT саз 

148 ВЗЕ1 СОВЕВЗ CRLL РЕРАРЕ 

141 ӨЗЕ4 ЗЕГА ОНЕЗРС MVI Я, :28 

142 ВЗЕБ СОВ1ЯЗ CALL —FRPRPC 

143 BZES СЗ4ЕВЗ JMP НОСЕЕТ 

144 Ж 

145 OSEC ЗЕ88 РЕМр=а MWI А. : Go HAMMER-SPC RT LOW-UP TRRHS. 
146 G3EE CDB103 CRLL РЕРАРС 

147 G3F1 ЗЕВЕ MI В, :Е 

148 ӨЗЕЗ 32F482 ЗМРЕМО STA РЕМОРЕ 

149 ВЗЕЕ СОВ1ЯЗ CALL РЕРАРС 

159 ОЗЕЗ CS RET 

151 Ж 

152 ЗЕН ЗЕВС РЕМр=Е tI в, :8 

153 ВЗЕС СЗЕЗОЗ „МЕ ЗУРЕМО 

154 Ж | 
15% TABLE WITH НЕМ CHARACTER-SET 
156 normal width. normal hight 
157 | по descenders 

158 Ж 

159 | ПЕШ : 408 | 

159 8400 205454 TABLE DATA :20,:54,:54,:54,:78 > a 
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Bice Лл Ze libet 


Lm 
* 
Ж 
ж 
5. 
x 
% 
У 


PAGE 84 
151 848 


MODERHISED CHARS FOR SEIKOSHA ОРІ 


5 ҒҒ4444 


162 0408 384444 
163 GDF 384444 
164 8414 385454 
165 8419 Gü44TE 
166 041E 085454 


167 842 


168 842 


3 Faded 
8 994476 


169 9420 4048044 
170 8452 FF1926 


171 843 


172 843 


173 044 


т B41 PF 


C тсаєтс 
1 гсдада 


174 0446 334444 


174 944 
2 
г 945 
Е 


та 045 


ҰҰЖЖЖЕЖЖҰЖЖЖЖЖЖЖҰ ЖЖ EEE EE 
ЖЗҮМЕОІ 
dopo opo epp t pc orcccepcpICGE 


RCTCHE 
IMASET 
HEXTECH 
РРІР“Н 
PRMD=F 
FRFPOSS 
START 

НТАСЕР 


о 845 


В 701414 


Я 981414 
з 447048 
| ВАЗА 452494 


Е 843744 


SH 8454 304048 


1 

1 

1 

1 

18 

151 8463 1с2040 
152 O46E З3С4878 
153 8473 442818 
184 дата асзвса 
185 8470 446454 
186 8482 TFTFTF 
187 0487 


aars CARRET 
9378 LEFTSP 
азға НОСЕЕТ 
РЕВА РРІР“Б 
ӨЗЕН РЕМОРЕ 
ВЕРЗ РЕЗСЕН 
9340 ЗУРЕМО 


ВЕ: 


TRBLEXM 


азге 
ӨСЕР 
Baar 
FEBI 
G2F 4 
ARE 
ЙЗЕЗ 


DRTR 
DATA 
DATA 
DATA 
DATA 
рата 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
CATA 
DATA 
рата 
DRTR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
EHD 


СНЕРФ 

LSTCHR 
ОНЕЗРС 
РРІР“С 
РЕРНРФ 
РЕТЏРС 
TABLE 


(ТЕ. : 44. 
:38, :44, 
28, : 44, 
:38, :54. 
ag. 44, 
(СВ, m, 


«ТЕ, : Oe, 
pa, : 44, 
"да, : 48, 
ТЕ, : 18, 


HB, 41, 
РО, 24, 
70, "Ed, 
:38, : 44, 
70, : 14, 
A. : 14, 
"44, : 72, 
:48, : 54, 
Da, ЗЕ, 
USC. : 46, 
IC, гей, 
:30, гай, 
:44, :28, 
: ас, : за, 
:44, : 54, 
РЕЈ ТЕ, 


ВЕРЕС 
aera 

3E4 
FE@2 
ЗЗВЕ 
B3AS 
9480 


:44, 
44. 
:44, 
` Dei, 
SCH 
Bur m 
` Da, 
7D, 
:44, 
:28, 
(ТР. 
UPC, 
"да, 
44, 
:14, 
: 14. 
Га, 
(а, 
dei, 
: 40, 
: 78, 
: га. 
:18, 
"50, 
54, 


TF’ 


ІМІТ 


44,238 
: 44, : 44 
44, : 7 
гаф, : 58 
:45,:01 
|B4, : та 
49, : AA 
: gb, гай 
:44,:44 
: 40. : 08 
:В4, :78 > 
:94, :78 + 
"ФА, 
:14,:88 
14,70 2 
:04,:04 7 
"Da, гад 
: 4, : 98 
: 49, : 7C 
„28, :12 
:48,:3С 
:28, :44 
гад, °C 
:4C, : 44 
TF at TF 


азва 


НЕАТВТ ASTE 
РРІСМО FEG3 
PRMD=3 ВЗЕС 
PRPAFC 0361 
КЕТЏЕМ 8ЗВЕ 
UPCASE 8330 


> b 
A = 
> d 
ов 
+ f 
^ З 
# И 
2 d 
^ d 
2 k 
2 1 

m 

п 


+ ға 
^ P 
3 
г ғ 
> t 
^ u 
> D 
2 i 
^ M 
A шв 
2 uz 
> рев 
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ДЕР, 
ВЕЕС са ag бй ва 
Вера ma aO AD ва 


а 
я 
= 
n 
к, 
са 
ба] 
сә 


В2ЕЕ BE 

0380 ES F5 ЗЕ AQ 32 
0319 CB 23 35 480 22 36 
азга OF ВЕ OF Се 38 2 

3338 F1 Бі СӘ 


я 


ЗЕ FF 22 01 FE 21 DD az 20 
: =F üz 3D 27 GF EG Fü BF 
Әс ТО EG ВЕ C6 38 32 Fr ВО 





те 
тізіп 
рісі Е 
= 
я 
я 


0340 ES DS CS FS 32 F3 82 ЗА FE 02 FE Әр CA CE G2 ЗА 
0350 F2 BE FE 61 DA Эр 03 FE TB FZ 90 83 ЗА F4 82 FE 
0360 GS C4 FA ӘЗ ЗА ЕЗ 82 zi ра 04 ре бі SF OL 95 98 
0378 CA 78 ü3 Әз ID C3 TG ӨЗ 11 ED 92 ТЕ СЄ 88 ЕЕ 77 
0380 EB 23 13 Әр C2 PB ӨЗ 21 ЕС BE GE 06 СО БЕ 02 ЗЕ 
0398 ЕЗ DE CD AE 03 32 FE ӘР Fl C1 D1 EL C9 ЗА F4 az 
взяв FE ВЕ C4 EC ӨЗ ЗА ЕЗ AE CD БІ ӨЗ C3 GF ӨЗ EF 02 
взва СЭ FE ЗА Әз FE AT FE BZ ӨЗ Fl 32 ва FE C9 ТЕ 


a3Br СО 


0308 Бі Q3 әр св 23 сз БЕ ӨЗ ЗА ЕЗ 82 FE op CA AS ӨЗ 
ASDA ЗА FF 82 В? CA ЯҒ 03 FE 81 CH Ed G2 21 FS 02 OE 

ЮЗЕЙ ӨЗ CD BE ӨЗ ЗЕ 28 CD ВІ ӨЗ C3 AF 03 ЗЕ 88 CD БІ 
ЗРО ӨЗ ЗЕ OF 32 F4 82 СО Bi ӨЗ C9 ЗЕ 88 CH ЕЗ 82 


дада 26 54 24 54 TS РЕ 44 
8418 44 44 44 ТЕ 33 54 54 
Әдеп 54 54 3C FF Ed Ad #4 
паза 30 ай PF 18 28 44 44 
вада TS FC 84 #4 G4 PE 38 
база 88 14 14 14 TC 44 TC à 
база ЗЕ 44 40 OO 3C 48 40 

9479 үз 48 3C 44 се 1828 + 


4 
Y. 
<> 


CH 3 = 4 « 1 «| 4 4 4 пі D 


“a 
0) 
53 6i 
ec 


44 TE 45 с 54 


D = Шу 


48 44 
TC 84 
14 oe 
24 84 
JC 4" 


d 44 гр 40 ga 

TF 48 Өш FC 
ЗЕ FE id 
а4 опа da Bd Ed 
С 1C 28 48 га 
L. 


` D Du за PC 


B3 
Croat їз, 
А fe Gc 
— 52 


+ 

ro Съ та 
R 
+ 
+ 
“са 
+a 


HUE GAMA 


ЕР < + 


EN 
ER 
с ~ 


0470 44 64 54 
8480 4C 44 TF ТЕ ТЕ TF ТЕ 
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Using the DCR after а CHECK command, it is sometimes 
ч difficult to guess if the tape is still running forward 
or if it is already being rewound... but there is a very 
du simple way to abtain a tape direction monitor оп the 
DCR, using only two small resistors, two LED's and a small 
knife... 


$ 
ey 
Zy 
шом IST 
жш 2) GREEN 
6602 560-0. 
т SUD 





ge 





Referring to the drawing, pins 6 & 7 of а connector inside 
the DCR bear +5V, when the engine is winding or rewinding 
the tape. Ап easy to solder ground connection сап be found 
on the interface board. (the one with socketed 1075): the 
ground track is the largest one, near a bolt. Moreover, it 
is very easy to take out the black DCR-front panel, 
unscrewing four little screws (the smallest ones) from 
inside the DCR: 50 here the sharp knife becomes use-ful to 
make two little holes in the plastic panel, the tiny and 
cheap pressure LED mountings perfectly match the colour of 
the front panel... The two 560 {2 resistors tie the LED 
cathodes to ground; so three thin isolated wires are suffi- 
cient for the connections. Be careful not to interfere with 
the microcassette-detection  microswitch inside the front 
panel. 


Paolo Siccardo - Savona - Italy 
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B. 8-BIT SYSTEMEN 





HOOFDSTUK III : ARCHITECTUUR VAN 8-BITS MICROPROCESSOREN 





ме geven een Ког е samenvatting van de meest voorkomende microprocessoren 
en noemen dit de 'identiteitsfiche'. 

Van de reeds eerder vernoemde industriële types geven we daarenboven 

nog een gedetailleerde beschrijving. 


3.1. Identiteitsfiche van de microprocessor 8080 van INTEL 
processor 8080 van INTEL 
- TECHNOLOGIE : NMOS dynamisch 


~ KLOKFREQUENTIE : maximum 2MHz (8080) : 3,13 MHZ (A1 versie) ; 2,65 MHz 
(A2 versie), 
minimum 500 kHz 


- KENMERKEN : voedingsspanningen : Í! 5V en +121 
verbruik : 1W 
klok : tweefasig verkregen met afzonderlijke schakeling 
(8224) 

databus : 8 bits 

adresbus : 16 bits 

controlesignalen : 5 bits afgeleid van de statussignalen 
die tijdens de eerste klokperiode be- 
schikbaar zijn op de databus. Dit kan 
gebeuren door de 8228 (systeem en bus 
controller). 

interruptmogelijkheden : 1 niveau met 8 vaste sprongadressen. 

stapel (stack) : in het werkgeheugen (RAM) Op een willekeu- 

rige plaats. | 

instructieset : 78 basisinstructies 

logische niveaus : TTL compatibel š 

uitvoeringstijden : van 2 tot Sus (8080), van 1,3 tot 5,8us 

(8080-A1) en van 1,5 tot 6,8us (8060-А2) 
edresseringsmogelijkheden : impliciet, direct, indirect, 
immediate. 


- INWENDIGE REGISTERS : 


Eom к 
stapelwijzer (SP) 
programmateller (PC) 
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- VEREENVOUDIGD TIJDSDIAGRAMMA (fig. 3.1) 
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3.2. Architectuur van de microprocessor 8080 van INTEL 


De microprocessor 8080 van INTEL is een dynamische 8-bits processor uit- 
gevoerd in een N-kanaal MOS met één bus architectuur. Het inwendige 
schema wordt gegeven in fig. 3.2 en bestaat uit 5 delen : 


- de 3-state ouffers voor de uitwendige data- en adresbus 

- de logische en rekenkundige eenheid met hulpregisters (ALU) 
- het instructieregister (IR) met de instructiedecoder 

- het registerveld met de adresseringslogica 

- het controlegedeelte 


3.2.1. De 3-state buffers voor data en adressen 


Door deze buffers in de hoge impedantietoestand te plaatsen, Кап de 
microprocessor zich isoleren zowel van de uitwendige gegevensbus als 
van de adrestus. 
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fig. 3.2 


De bewerkingen die dan gebeuren in het inwendige van de microprocessor 
zijn onzichtbaar voor de omgeving. Het transfert van informatie in de 
microprocessor gebeurt via de interne databus waarop alle inwendige 
delen aangesloten zijn. 


Dit gedeelte bevat : 


- een B-bits accumulator (А) 

- een 8-bits accumulator buffer/geheugen (Latch) 

- ееп 8-bits voorlopig register (TMP) 

- de logische en rekenkundige eenheid zelf 

- een 5 bits toestandsregister (vlag register) | 

- een register voor decimale correctie van de accumulatorinhoud bij het 
verwerken van BCD getallen. 


Alle bewerkingen zoals rekenkundige bewerkingen en de logische operaties 
ЕМ, ОҒ, EXOF die door de ALU uitgevoerd worden, gebeuren met де inhoud 
van де accumulator en het TMP register. 

Het resultaat van de bewerking wordt terug ingeschreven in de accumulator. 
Om rondlopen van de informatie te vermijden is de accumulator voorzien 
van een latch die bij het begin van de operatie de inhoud van de accumu- 
lator ontvangt en onmiddellijk daarna nog slechts toegankelijk is voor 
uitlezing. 
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Het register voor decimale correctie Кап де В bits binaire accumulator 
inhoud omzetten in 2 tetraden in de BCD code. 

Het vlagregister, ook wel register van de toestandenbits genoemd, memo- 
riseert bepaalde merkwaardige eigenschappen van het resultaat van een 
logische of rekenkundige operatie, uitgevoerd door de ALU. Deze eigen- 
schappen worden gesymboliseerd door een bit in het toestandenregister 
ор 1 te zetten of terug te zetten ор 0. 

De toestanden die in het register opgenomen worden zijn : 


- het al (1) of niet (0) (zerosz) zijn van de accumulatorinhoud 

- het negatief (1) of positief (0) zijn van het teken (stgn=S) van het 
resultaat. 

- het bestaan (1) of niet bestaan (0) van een overdrachtbit (carry=C of CY) 

- het bestaan (1) of niet bestaan (0) van een hulpoverdracht (auxiliary 
сатгу< АС) tussen de eerste en tweede tetrade. 

- een even (1) of oneven (0) pariteit (parity=P) van het resultaat. 


Deze 5 bits hebben een veste plaats in het 8-bits toestandenregister, 
wat meteen betekent dat 3 vaste bits in dit register ingeschreven zijn. 





3.2.3. Het instructieregister met de decoder 

Het instructieregister (IR) ontvangt de uit te voeren instructie uit het 
programmageheugen (ROM) via de databusbuffer. 

Deze instructie wordt dan in de instructiedecoder gedecodeerd om uit te 
maken wat dient uitgevoerd te worden. Deze decodering gebeurt in een 
inwendige ROM. Het resultaat van deze decodering zet uiteindelijk een 
signaal op de controlebus. 01% signaal maakt de gewenste onderlinge 
verbinding van de verschillende schakelingen van het systeem. 

бе controlesignalen Киппеп zijn : 


MEMR Memory read wanneer de instructie gepaard gaat met een lezing 
uit het geheugen hetzij ROM, hetzij RAM. 


MEMW Memory write wanneer de instructie een inschrijving in het geheu- 
gen RAM veroorzaakt. 


I/OR Input/output read wanneer een van de ingangskanalen gelezen wordt. 


І/ОМ Input/output write wanneer іп een van de uitgangskanalen geschre- 
ven wordt. 


INTA Interrupt acknowledgement (kennisgeving van ontvangst van een 
onderbrekingsaanvraag) wanneer het een onderbreking betreft van 
een interruptprogramma dat in uitvoering is (zie verder). 


бе controlesignalen zijn niet zonder meer op de klemmen van de micropro- 
cessor aanwezig maar als een 8 bits statuswoord op de databus, afwisselend 
met de gegevens. 01% veronderstelt dat de inhoud van de databus gemulti- 
plexeerd is tussen de gegevens (data) en statussignalen waaruit de con- 
trolesignalen opgebouwd worden. Met behulp van een speciale bouwsteen 
(вм. 8228) wordt deze informatie ор de databus omgezet in de 5 controle- 
signalen (zie verder). 
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Het registerveld (scratch pad, kladblok) is in feite een inwendig  geheu- 
gen met beperkte afmetingen waarin de CPU rechtstreeks kan schrijven of 
lezen door aangepaste instructies. Het voordeel van dit inwendig geheu- 
gen is de snelheid van afwikkeling van de operaties. Alles gebeurt bin- 
nen de CPU en er moet niet steeds gelezen of geschreven worden in het 
uitwendig geheugen. Het registerveld bestaat uit 8 registers van 8 bits, 
die kunnen samengevoegd worden tot drie 16 bits registers. Het zijn ce 
registers В, С, 0, Е, H en | die eveneens kunnen aangesproken worcen als 
registerparen В, О en H. 

Twee bijkomende registers W en Z worden alleen gebruikt voor de inwendige 
verwerking van sommige instructies door de microprocessor; toegeng tot 
deze registers via een programma is onmogelijk. 

We merken op dat de registers Н еп | een dubbele functie hebben. 
Enerzijds kunnen ze dienst doen als inwendig geneugen, zoals hoger aange- 
geven. Anderzijds wordt het HL registerpaar gebruikt als adresserings- 
pointer en bevatten Н en | respectievelijk de hoogste byte (high) en 

de laagste byte (low) van een geheugenadres bij indirecte adressering. 
Naast deze registers van algemeen nut zijn er nog 2 registerparen die 
een vaste functie hebben in verband met adresseringslogica : het PC regis- 
ter (progran counter) of de instructieteller. 01% registerpaar bevat 
steeds het adres van de volgende uit te voeren instructie. Het wordt 
door een RESET ор 0 gezet, d.w.z. па RESET is het adres 0000H ingeschre- 
ven in het PC register. Oe eerstvolgende instructie die zal uitgevoerd 
worden bevindt zich dus op adres 0000H van het programmageheugen. Het 
registerpaar SP (stack pointer) of stapelwijzer bevat het adres van de 
laatste geheugencel die gebruikt is in het stapelgeheugen (stack). 

Het beginpunt van dit stapelgeheugen wordt vastgelegd іп het programma 

еп begint gewoonlijk bij het hoogste physische RAM adres. Inschrijving 
of lezing in de stack gebeurt steeds per 2 bytes. Bij inschrijving in 
het stapelgeheugen telt de stapelwijzer af. Ві) lezing uit het stapel- 
geheugen daarentegen telt hij op. 


fig. 3.3 


RAM 
(5ТАСК) 
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De stack wordt voor de microprocessor gebruikt, o.a. от met terugkeer- 
adres in te schrijven wanneer er gewerkt wordt met subroutires cf om 

de inhoud van die registers veilig te stellen die nodig zijn om een 
hoofdprogramma te kunnen verderzetten na een onderbreking (interrupt). 
Resumerend kunnen we zeggen dat ín het registerveld 3 adresseringswijzers 
aanwezig zijn (fig. 3.3): 


- de programmateller (program counter) wijst het adres aan van een in- 
structie іп het ROM geheugen. 

- het HL registerpaar wordt gebruikt als adreswijzer (pointer) in het 
RAM geheugen. 

- de stapelwijzer (stack pointer) is de adreswijzer van het speciaal ge- 
deelte in het RAM geheugen dat de stapel of stack wordt genoemd. 


www — = em = = = = wm > vn ve س س ت‎ wm e 


Het controlegedeelte is verantwoordelijk voor de besturing еп de contrcie 
van de centrale verwerkingseenheid. 
De ingangscontrolesignalen zijn : 


RESET Het signaal waarmee de microprocessor op nul gezet wordt zodet 
de uitvoering van een programma kan beginnen. Het RESET sig- 
naal zet de instructieteller (PC) op nul, terwijl de ancere 
registers niet beïnvloed worden. RESET is aktief met niveau 
hoog en moet een duur hebben van minstens 3 klokperiodes. 


Й, еп 8. Deze twee signalen vormen een tweefasenklok voor de tijdstestu- 
ring van de CPU met een amplitude van BV, opgewekt door een af- 
zonderlijke bouwsteen 8224. Het spanningsverloop van deze klok- 
signalen wordt gegeven in fig. 3.4. 





fig. 3.4 


INT Interrupt is het signaal dat aan de CPU meedeelt wanneer een 
van de periferie apparaten het hoofdprogramma wenst te onder- 
breken. Het is dus een aanvraag tot onderbreking. 


READY Is het signaal dat aan de CPU meedeelt dat het (traag) geheugen 
of het (trage) periferie apparaat nog niet klaar is met de uit- 
voering van de gevraagde cyclus. Пе CPU wacht еп kan niet 
verder werken voor het READY signaal op hoog komt. READY is 
aktief met niveau laag. 


HOLD Is eveneens een vraag tot stoppen van de kativiteiten van de 
CPU met dit verschil dat nu zowel adres als gegevensbuffers in 
de hoge impedantietoestand worden gezet (3-state) en de CPU 
zich isoleert van dit bussysteem zodat een andere processor 
bv. direkte toegang tot het geheugen DMA) de besturing van de 
bussen van het systeem kan overnemen. HOLD is aktief met een 
hoog niveau. 
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Се signalen die vertrekken уап het controlegedeelte zijn : 


WR 


DBIN 


HLDA 


SYNC 


WAIT 


Het signaal dat aangeeft op de operatie die volgt een schrijf- 
of een leesopdracht is. 

Niveau laag geeft schrijven. 

Niveau hoog geeft lezen. 


(data bus in) Door dit signaal geeft de processor te kennen dat 
gegevens ingelezen kunnen worden via de bidrirectionele databus 
(niveau hoog) of uitgelezen worden (niveau laag). DBIN 15 
eveneens laag bij het uitsturen op de databus van de status- 
signalen die dan verder gecodeerd dienen te worden om de con- 
trolebussignalen te vormen van de 5 bits controlebus. 


(hold acknowledgement) is het signaal dat de ontvangst van een 
HOLD aanvraag bevestigt met een hoog niveau. 


Dit synchronisatiesignaal geeft het begin aan van elke nieuwe 
machinecyclus en synchroniseert de afwikkeling van de verschil- 
lende onderdelen van een instructie, іп functie van de tijd. 
Dit signaal wordt hoog па de opgaande flank van H. tijdens de 
eerste klokperiode tot de volgende opgaande flank van 2-. 

(zie fig. 3.4). 


Met WAIT geeft de CPU te kennen dat hij wacht op het READY 
signaal dat kan uitgegeven worden door een traag geheugen of 
een traag periferie apparaat. 

WAIT is aktief voor niveau hoog. 


Figuur 3.5 geeft Че bezetting van de pennen van het microprocessor-IC. 
Het is een 40 pennen IC waarop al de hoger vermelde signalen terug te 
vinden zijn, nl. : 


- 16 adressignalen 
- 8 gegevenssignalen 
- 42 signalen van het besturings- en controlesysteem 


Tevens zijn er 4 pennen beschikbaar voor de 3 voedingsspanningen маагугп 
de 8080 gebruik maakt en de massa. 


fig. 3.5 
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FEIE IE EE HEIE EE E JEJE IE IEE ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ Ф 
ж ADAPTEUR DAI/VIDEO MONOCHROME + < 


E E EE E E E E E E E E E E E FE E FF E E E E EF FE EEE EE 


D'apres Radio-Plans де juillet 1983 No 428 p 20 bo, 


Alain Mariatte 


Pour utiliser un ordinateur а sorties Peritel (RGB) 
comme le DAI avec un moniteur monochrome necessitant un signal 
composite de 1V crete sur 75 Ohms (moniteur qui equipe la 
majorite des ordinateurs de table), il faut faire la somme 
des signaux que le DAI sort sur la prise "VIDEO". 

Cette somme doit respecter la relation: 





Y = 0.3 R + 0.59 V + 0.11 B 


Le circuit suivant, tres simple et tres largement 
inspire de l'article cite en reference, assure ce travail et 
permet de se passer momentanement de l'encombrant tele couleur. 
Оп y perd bien-entendu 1а couleur et le son, mais ce n'est 
pas grave pour bien des applications (et on gagne en facilite 
de transport: on fait actuellement des moniteurs vraiment 
legers). 


Les numeros des broches sont ceux de la prise DIN sortie 
PERITEL (RGB) du DAI. Bien entendu, la sortie son "5" n'est pas 
utilise ici. 


ENTREE OU 
MONITEU A 


+ 
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6. БЕ ТІСС 
Vraag 5: TICC is een afkorting van ........ 


De tweede I/0-module waarover de DCE beschikt is de TICC (Timer 
Interrupt and Communications Controller). 

De TICC wordt gevormd door de TMS 5501 van Texas Instruments. 
De TICC bestaat uit de volgende delen. 

a. Een 8-bits input-poort. 

b. Een 8-bits output-poort. 

c. Een serial input- en output. 

d. Een aantal timers. 

e. Een interrupt controller. 


In fig. 6 is een gedetailleerd blokschema van de TICC weergegeven. 
Tussen haakjes is aangegeven welk adres elk register en elke timer 
heeft. | 

(Om де tekening overzichtelijk te houden zijn де selectie-lijnen van 
de adres decoder en de besturingsbus niet getekend.) 


7. PARALLEL INPUT/OUTPUT 


De TICC beschikt over een 8 bits input-poort en een 8-bits output- 
poort via welke de data van of naar de CPU wordt getransporteerd. 

De modes van deze poorten kunnen, in tegenstelling tot de GIC-poorten, 
niet veranderd worden. | 


Vraag 6: Met de instructie STA 9807H brengen we de 
ааа дела паак ............. 


Willen ме b.v. де inhoud уап де accumulator naar де output-poort met 
adres 980716 brengen, dan gebruiken we де instructie STA 9807H. 

Met de instructie LDA 9801H halen we de informatie op de input-poort 
naar de accumulator. 


Opmerking: 


Een ордаапде flank ор b7 van de input-poort genereert tevens een 
interrupt request. Deze komt binnen op b7 van het interrupt register 
(zie paragraaf 10). Deze interrupt noemen we de auxiliary interrupt. 


8. SERIAL INPUT/OUTPUT 


Voor de communicatie met b.v. een TTY of een display beschikt de TICC 
over een serial input en een serial output. 


Willen we een 8-bitswoord in serie (dus achter elkaar) overzenden, dan 
brengen we dit woord naar het transmitter register (to transmit - zen- 
den), die ervoor zorgt dat de bits achter elkaar de lijn worden opge- 
stuurd. | 


Antw.5: Timer, Interrupt and Communications Controller. 
Antw.6: inhoud van de accumulator; output-poort. 


20-01 
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Het transmitter register zorgt zelf voor het ормеккеп van де start- 
en stop-bits (fig. 7). 


i 
— t Ц 
| Tkarakter in ASCII ] fig." 
startbit stopbit 


Vraag 7: De baud rate is het aantal ....... per ........ 


De baud rate (- aantal bits/sec) waarmee dit overzenden gebeurt, 
moeten we van te voren aanpassen aan de baud-rate van het randappa- 


raat. 
be 55 D4 b3 b2 b1 bo 
9600 4800 2400 | 1200 300 150 110 
Вача Вача Вача Baud Baud | Baud | Baud 
fig.8 
In fig.8 is het baud-rate register weergegeven. Door één bepaalde 
bit 1 te maken, kunnen we de baud-rate waarmee de TICC data ontvangt 
en overzendt instellen. 


Door 57 1 of 0 te maken kunnen we bepalen of het transmitter-register 
bij het overzenden van een karakter 1 resp. 2 stopbits genereert. 


57 









stop- 
bit 
select 


Vraag 8: Willen we de baud rate instellen op 110 Baud en het transmitter 
register 2 stopbits laten genereren, dan moeten we naar 
adres ....... 16 de waarde ........ 16 Sturen. 


Voor een baud-rate van b.v. 110 moeten we bg van het transmitter 
register 1 maken еп de bits bg t/m bj 0. 

Vereist het randapparaat b.v. 2 stopbits, dan dient 57 0 te zijn. 
In dit geval moeten we het baud-rate register (adres 9805) vullen 
met 00000001; + 01,6. 


Wanneer het transmitter register alle 8 bits van een karakter en de 
start- en stopbits de lijn op heeft gezonden, geeft het een interrupt 
request om aan te geven, dat de CPU nieuwe data mag zenden. 


Op dezelfde manier geeft het receiver register (to receive - ontvangen) 
een interrupt request wanneer een 8 bits woord en de start- en stop- 
bits zijn ontvangen. De CPU kan de data dan overnemen. 


Vraag 9 : De CPU brengt data van het receiver register naar de 
accumulator m.b.v. de instructie ............... 


De CPU doet dit m.b.v. een instructie die data overbrengt van geheugen- 
woord met adres 980016 (het receiver register) naar de accumulator. 
Dit is b.v. de instructie LDA 9800H. 


Antw.7: bits per seconde. Antw.8: 980516; 0116. Antw.9: LDA 9800. 20-01 
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Opmerking: Het voordeel van deze "interrupt-methode" is, dat де CPU 
verder kan gaan met de uitvoering van het hoofdprogramma, 
terwijl het transmitter register of het receiver register 
bezig is de data de lijn op te zenden of te ontvangen. 





SAMENVATTING 2 


4. TICC betekent Timer, Interrupt and Communications Controller. 
De TICC beschikt over 
a. een 8-bits input-poort en een 8-bits output-poort, 
b. een serial in- en output, 
c. 5 timers, 
d. een interrupt controller. 


Wanneer we gebruik maken van de serial in- en output van de TICC, 
moeten we van te voren de Baud-rate instellen, door één van de 
bits van het Baud-rate register 1 te maken. Tevens moeten we aan- 
geven of een karakter gevolgd wordt door 1 of door 2 stopbits. 


Het in serie overzenden en ontvangen van een karakter geschiedt ор 
basis van interrupt I/O. Wanneer een karakter is overgezonden of 
ontvangen, zendt de TICC een interrupt request naar de CPU, zodat 
de CPU nieuwe data naar de TICC kan zenden of data vanuit de TICC 
kan ophalen. 





cont. from p.384 
ressen elk gescheiden door een space (cfr het Display bevel uit 
de utility). Het eerste adres is het beginadres van de geheu- 
genzone die in EPROM dient gebracht te worden (begin source- 


buffer), het tweede adres is het eindadres van deze geheugenzone 


(eindadres sourcebuffer), het derde adres ten slotte is het 
beginadres waar de data dienen ondergebracht te worden in de 
EPROM. 
Hiervoor dient altijd het beginadres van een blok van 258 byte 
(pagina) genomen te worden. Gedurende de programmatie brandt 
de rode LED. Na het voltooien van de programmatie, test het 
programma of alles foutloos is gebeurd en meldt zich met 
PROGRAMMING DONE 
gevolgd door de melding NO ERRORS of 
ERROR AT ADDRESS xxxx . 
xxxx staat voor het hexadecimale adres waar de eerste fout 
gelezen is. 
Het is eveneens mogelijk de inhoud van een EPROM te lezen. 
Het bevel is (R) 'READ' en de geheugenruimte beginnende bij 
het hexadecimale adres A300 wordt dan gevuld met de inhoud van 
de EPROM. | 
Wenst теп terug te keren naar UTILITY dan kan dit gebeuren door 
het bevel (U). 

2 EPROM's mogen slechts in de sokkel gestoken of uit de sokkel 


ARNHEM. NEDERLAND 


COPYMOMHT ©. төте ELEKTRONICA OPLEIDINGEN OIRKSEN 


gehaald worden, als de groene LED brandt. 
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10 REM EE EE EE EE EE EES 


и КЕМ titel КЕКЗТМАСНТ 

12 REM datum 82-12-20 

15 КЕМ (с) Herman MOEYS - 1982 

14 REM ===========================================ssss 


20 REM INITIALIZATIE ---------------------------------- 

21 РОКЕ #75,32:PRINT CHR$(12):COLDRT 9 © 6 O:COLORG 6 © 9: МОЈЕ SA 
:РОКЕ #7448, #6А: CLEAR 10000: RESTORE 

22 ШІМ KL(5.0), XL (24.0) , YL(24. 0) , X8(3.0, 99. 0) ,K8(15. 0) , T$ (1. 0) 

23 FOR 150 ТО 5:READ T:KL(I)=T:NEXT:FOR 159 TO 15:READ T:KS(I)=T:NE 


24 ОПАТА 1,2,3,10,12,14,8,1,2,3,4,15,6,7,0,9,10, 11,12, 13, 14, 15 
25 MS=30: XM=XMAX+1: ҮМ=ҮМАХ+1: XC-118* INT (ВМО (13. 0) ) 8. 0 


26 T$(0.9)=" PRETTIGE  KERSTDAGEN у 

27 T$(1.0)z" VOORSPOEDIG 1984 д 

30 КЕМ KERSTBOOM HALEN ---- ~~ 

51 CURSOR 0,1:РКІМТ " een kerstboompje halen ....":COLORT © 10 
- ве 


32 ус=171: ВВ!=20. 0: ЕВ!=2. 0: ТВ=24: GOSUB 100 

55 ус=147: ВВ! =55. 0: EB! 210. 0: TB-26: GOSUB 100 

34 ҮС=117: ВВ!=55.0:ЕВ!=17.0:ТВ=34: 50508 100 

55 YC=79: ВВ! =80. 0: ЕВ8! =27. 0: TB=44:GOSUB 100 

56 ус=55:ВВ!=110.0: ЕВ!=40. 0: ТВ=52: 60508 100 

57 FOR Y=45 ТО 0 STEP -1:DRAW ХС-10,Ү XC*10,Y 6:00Т XC-11,Y 15:DOT 
XC+11,Y 19:NEXT 

40 REM LAMPJES HANGEN ——— V 


41 =0 
42 СО! ОЕТ 0 0 © @:CURSOR 0,1:РБІМТ " enkele lampjes ophangen . 
4% "WAIT TIME 3@:COLORT 9 10 0 6 


45  X=RND(XM) : Y=RND (YM): IF SCRN(X,Y)<>5 BOTO 43 

44  XL(T)=X:YL(T)=Y:L2=T MOD 6:GOSUB 200 

45 Т=Т+] 

46 IF Т<25 GOTO 43 

50 GOTO 1000 

109 REM [S] KERSTBOOM TEKENEN ----------------------- -- 
101  TAU'-TB/LOG (BB! /EB!) 

102 FOR T=TB ТО © STEP -1 

103 Х-ВВ!жЕХР(-Т/ТАШ!)-2.0 

164 DRAW XC-X,YC+T ХС+Х,ҮС+Т 5 
105 DOT XC-X,YC+T 15 

186 DOT XC+X,YC+T 15 





107 МЕХТ 

108 RETURN 

200 REM [S] LAMPJES KLEUREN --------------------------- 
201 -KL (L2) 


202 FILL X-3,Y-3 X43,Y43 К 

203  FILL X-1,Y-4 X+1,Y+4 К 

204 К-ІМТІК/8.0) #15. 

205  DRAW Х-4,Ү X+4,Y К 

206 DRAW X-4,Y-1 X*4,Y-1 15-К 

207 DRAW X-4,Y*1 X+4,Y+1 15-К 

208 RETURN 

1000 REM KERSTNACHT ----------------------------------- 
1190 REM KNIPPERENDE STER ----------------------------- 
1119 FOR 11-0 TO 5 

1120 COLORT © 9 © 9:ҮС-200:К-Кі (11) 

1130 FOR І-д ТО К STEP К 

1131 DRAW XC-10,YC XC+10,YC I 

1132 DRAW XC-7,YC-7 XC+7,YC+7 I 

1133 DRAW XC-7,YC*7 XC+7,YC-7 І 

1134 DRAW ХС,УС+19 XC,YC-10 I 

1135 DRAW XC-7,YC-3 XC+7,YC+3 I 

1136 DRAW XC-3,YC-7 XC+3,YC+7 I 

1137 DRAW XC-3,YC+7 XC+3,YC-7 I 





DE TION ERN 
сары аа абы ы 
шан сас SERS 


| 
| 


DRAW XC-7,YC*3 XC*7,YC-3 I 

NEXT 

CURSOR ©,1:PRINT T$(L1 MOD 2.0):COLORT 9 10 0 © 
REM KNIPPERENDE LAMPJES -------------------------- 
FOR L2-6 TO 5 

T=RND (25. 0) : X=XL (T) : Y=YL (T) :805ЦВ 200 

REM SNEEUWVLOKJES -------------------------------- 
FOR 13-0 TO 5 

X=RND (ХМ) : YSRND (УМ) 

K=KS (SCRN(X, Y) ) 

H8-X8(X/100.0,X MOD 100.0) 

IF Н5<М8-30.0 THEN HS=MS-3¢ 

DOT X,Y К 

DOT X,HS 15 

X8(X/100. 0, X MOD 100.0) =HS+1 

IF HS<MS GOTO 2000 

FOR 1-0 TO XM-1 

IF SCRN(I,HS)=8 THEN DOT I,HS 15 

NEXT 

DRAW @,HS-30 ХМ-1,Н5-30 15 

MS=MS+1 

IF MS=212 GOTO 10 

NEXT:NEXT:NEXT:GOTO 1000 





HOE WIS JE EEN GEDEELTE VAN EEN PROGRAMMA UIT? 





Het komt пора] vaak voor dat men een gedeelte van een programma 
dat overbodig geworden is wil verwijderen, of dat men een 
onderdeel uit een groot programma wil afzonderen. Sommige 
BASIC-dialecten gebruiken daarvoor een speciaal bevel (bvb. 
DELETE in TRS 80-basic), maar іп BAI-basic is dit niet 
voorzien. 


Toch zijn er een aantal mogelijkheden om iets uit te wissen: 


1. Tik gewoon de nummers van de te wissen regels opnieuw in. 
Deze methode is omslachtig als je grote gedeelten van 
een programma wil verwijderen. 


2.-Zet het programmadeel dat je wil bewaren in de EDIT- 
buffer 

-Wis de tekstbuffer 

-Copieer de EDIT-buffer in de tekstbuffer. 


We willen bijvoorbeeld een subroutine bewaren die op regel 
1000 tot 2000 staat, en de rest van het programma vernietigen. 
Dit kan op volgende manier: | 


*CLEAR 3000 

*EDIT 1000-2000 
(BREAK) (BREAK) 

SN EM 

%РОКЕ 309,2 


` DAInamic 83-19 - 413 


Deze methode is vooral geschikt ош programmaonderdelen 

uit een groot programma af te zonderen (bvb. een subroutine 
die men in een ander programma wil gebruiken). Ze kan enkel 
gebruikt worden als het te bewaren stuk een aaneensluitend 
geheel vormt. 


3. De "Monte Carlo-methode": als je zeer snel na het indrukken 
van de RETURN- toets achter 'EDIT1992-2990" 2X<BREAK) duwt 

is het mogelijk dat er een gedeelte van het programma 

tussen 1000 еп 2000 verdwenen is. De rest kan je dan ше 
methode 1 verwijderen. Deze methode vindt enkel aanhangers 

bij personen die het genoegen willen smaken sneller te zijn 
dan de computer en hoort dus eerder thuis in het hoofdstuk 
"Games&Strategy" dan in het hoofdstuk "Serieus programmeren" 
Af te raden! 


4. Om bvb. regels 70 - 128 te verwijderen doe je ( in command 
node): *EDIT 70-120 :EDIT n (п- willekeurig nummer) 


Ор het scherm verschijnen dan regels 70-129 in EDIT-mode. 

Doe dan (BREAK) <SPATIE) . Regel n verschijnt op het scherm; 
doe (BREAK) (BREAK) 

Deze methode blijkt feilloos te werken, al kan ik niet 
verklaren hoe. 


Ik heb ook getracht deze "truuk" in te bouwen in een 
basic-programma, maar dan blijkt het niet in alle gevallen te 
werken. hoe behulp van het programma van de heer Dufour 

uit Dainamic 16, p.200) 


Als je grote gedeelten uit een programma verwijderd hebt 
18 het aan te raden de symbol table weer op te poetsen. 
Daar staan immers nog steeds de variabelen in die uit het 
programma verdwenen zijn. 


*CLEAR xxxxx (voldoende om het ganse programma te bevatten) 
*EDIT 

(BREAK) <BREAK) 

*NEW 


*POKE 309,2 


Jos Vandebergh 
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BOO S EET SESE SENT کے ا‎ Mi Bea ЗРИВИ а 
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